Imports System.Windows.Forms
Namespace Logging
    Public Class DebugLogForm
        Private Sub DebugLog_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        End Sub
        Private Sub DebugLogForm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
            'If Not Location.X = -32000 Then 
            SaveSetting("MChat", "DBL", "PosX", Me.Location.X)
            'If Not Location.Y = -32000 Then
            SaveSetting("MChat", "DBL", "PosY", Me.Location.Y)
            Windows.Forms.Application.Exit()
        End Sub
        Private Sub DebugLog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Try
                Dim X, Y As String
                Dim Point As New Drawing.Point
                X = GetSetting("MChat", "DBL", "PosX")
                Y = GetSetting("MChat", "DBL", "PosY")
                'If Not IsNothing(X) And Not IsNothing(Y) Then
                Point.X = X
                Point.Y = Y
                Me.Location = Point
                'End If
            Catch ex As Exception
            End Try
        End Sub
    End Class
End Namespace